home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 September / 64er_Magazin_96-09_1996_Markt__Technik_de_Side_A.d64 / a.g.e. _main (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  37KB  |  359 lines
  1. 5 print"[147]":sys16384:poke53280,peek(36357)
  2. 6 poke53281,0:x0=23:y0=7:bc=0:br=32:f4=8:v=48:x3=39:y3=14:p=3:dl=1
  3. 7 x1=11:y1=17:p=0:mp(0)=25:mp(1)=28:mp(2)=30:mp(3)=32:mp(4)=35:mp(5)=37:_floppy
  4. 10 rem  screenaufbau
  5. 15 _at15,0:print"[159]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";
  6. 29 f1=peek(36352):pp=36976
  7. 30 _farbset:_fout:v=peek(36848)
  8. 40 _gosub212:br=bc:_tmask1,2:_smask2,br:gosub1181:_cfree
  9. 50 poke53265,peek(53265)or16
  10. 197 rem ******************************
  11. 198 rem **** tastaturabfrage oben ****
  12. 199 rem ******************************
  13. 200 _sprset0,y0,x0:_cfree:_invbr:_tasto:a=peek(2):_gosub211+10*a:goto200
  14. 210 rem * cursor runter
  15. 211 y0=y0+1:ify0=15theny0=0
  16. 212 _hbcy0,x0:bc=peek(2):_decodbc:_tmask0,1:_smask1,bc:return
  17. 220 rem * cursor rechts
  18. 221 x0=x0+1:ifx0=40thenx0=0
  19. 222 _hbcy0,x0:bc=peek(2):_decodbc:_tmask0,1:_smask1,bc:return
  20. 230 rem * cursor hoch
  21. 231 y0=y0-1:ify0=-1theny0=14
  22. 232 _hbcy0,x0:bc=peek(2):_decodbc:_tmask0,1:_smask1,bc:return
  23. 240 rem * cursor links
  24. 241 x0=x0-1:ifx0=-1thenx0=39
  25. 242 _hbcy0,x0:bc=peek(2):_decodbc:_tmask0,1:_smask1,bc:return
  26. 250 rem * space
  27. 251 _hbcy0,x0:bc=peek(2):ifbc=32then:_cfree:a=peek(2):ifa=0thenreturn
  28. 252 if bc=32then:_nfree:bc=peek(2):_decodbc:_tmask0,1:_smask1,bc:poke32512+bc,15
  29. 253 if bc=32then:_sbc y0,x0,bc
  30. 254 br=bc:_tmask1,2:_smask2,br:_farbset
  31. 255 _sprset0,10,41:_sprset4,y0,x0:poke34816+y0*40+x0,br:gosub1000:_sprset4,10,41
  32. 256 _checkbr:gosub212:return
  33. 260 rem * return
  34. 261 ifpeek(32512+br)=255thenreturn
  35. 262 _hbcy0,x0:bh=peek(2):_scrmem0:gosub401:_sbcy0,x0,br:_hbcy0,x0:bc=peek(2)
  36. 263 _decodbc:_tmask0,1:_smask1,bc:_farbset:_sprset1,10,41:return
  37. 270 rem * undo _
  38. 271 x2=0:y2=0:x3=40:y3=15:_sprset2,1,41:_sprset3,1,41:c0=0:c1=0
  39. 275 _memscr0:_farbset:goto242
  40. 280 rem * a  kopie oben rechts
  41. 281 x2=x0:y2=y0:if x2<>x3 or y2<>y3 then283
  42. 282 x2=0:y2=0:x3=41:y3=15:_sprset2,10,41:_sprset3,10,41:c0=0:c1=0:return
  43. 283 if x2<=x3 and y2<=y3 then:_sprset2,y2,x2:c1=1:return
  44. 285 x3=39:y3=14:_sprset2,y2,x2:_sprset3,10,41:c1=1:c0=0:return
  45. 290 rem * b  kopie unten rechts
  46. 291 x3=x0:y3=y0:if x2<>x3 or y2<>y3 then293
  47. 292 x2=0:y2=0:x3=41:y3=15:_sprset2,10,41:_sprset3,10,41:c0=0:c1=0:return
  48. 293 if x2<=x3 and y2<=y3 then:_sprset3,y3,x3:c0=1:return
  49. 295 x2=0:y2=0:_sprset2,10,41:_sprset3,y3,x3:c0=1:c1=0:return
  50. 300 rem * c  kopiere
  51. 301 ifc0=0 or c1=0 thenreturn
  52. 302 xc=x3-x2:yc=y3-y2:cf=0:xm=x0:ym=y0:ify0+yc> 14 then yc=14-y0:cf=1
  53. 303 ifx0+xc > 39 then xc=39-x0:cf=1
  54. 304 ifcf=1then:_sprset3,y2+yc,x2+xc:xn=x3:yn=y3:xm=x2:ym=y2
  55. 305 _sprset6,y0+yc,x0+xc:_tasto
  56. 306 a=peek(2):ifa<>9then:_sprset6,5,41:_sprset3,y3,x3:_gosub211+10*a:return
  57. 307 _scrmem0:_sprset6,4,41:_copyy2,x2,y2+yc,x2+xc:_bclry0,x0,y0+yc,x0+xc,32
  58. 308 _einfy0,x0,y0+yc,x0+xc:_farbset:gosub212:ifcf=0thenxn=x0+xc:yn=y0+yc
  59. 309 x2=xm:y2=ym:x3=xn:y3=yn:_sprset2,y2,x2:_sprset3,y3,x3:return
  60. 310 rem * f2
  61. 311 f1=f1+1:iff1=16thenf1=0
  62. 312 poke36352,f1:_farbset:_smask1,bc:_smask2,br:return
  63. 320 rem * f4
  64. 321 f2=f2+1:iff2=16thenf2=0
  65. 322 poke36353,f2:_farbset:_smask1,bc:_smask2,br:return
  66. 330 rem * f6
  67. 331 f3=f3+1:iff3=16thenf3=0
  68. 332 poke36354,f3:_farbset:_smask1,bc:_smask2,br:return
  69. 340 rem * f8
  70. 341 f4=peek(163)-25:poke32512+bc,f4:_farbset:_invbc:_smask1,bc:_smask2,br:return
  71. 350 rem * =
  72. 351 ifpeek(32512+br)=255thenreturn
  73. 352 _cleary0,x0:_sbcy0,x0,br:_farbset
  74. 353 _sprset1,10,41:goto 221
  75. 360 rem * screen in memory1
  76. 361 _scrmem1:return
  77. 370 rem * screen in memory2
  78. 371 _scrmem2:return
  79. 380 rem * momory1 in screen
  80. 381 _memscr1:_farbset:gosub212:return
  81. 390 rem * momory2 in screen
  82. 391 _memscr2:_farbset:gosub212:return
  83. 400 rem * loesche zeichen im bild
  84. 401 _scrmem0
  85. 402 _cleary0,x0:gosub212:return
  86. 410 rem * loesche zeichen im bild + ->
  87. 411 _cleary0,x0:gosub212:gosub221:_cfree:return
  88. 420 rem * menue aufrufen
  89. 421 _scrmem0:_sprset0,10,41:goto2000
  90. 430 rem * next char old mask
  91. 431 ifpeek(32512+br)=255thenreturn
  92. 432 _scrmem0:f=peek(32512+br):_cleary0,x0:_cfree:a=peek(2)
  93. 433 ifa=0then:_memscr0:return
  94. 434 _nfree:bc=peek(2):_tmask2,0
  95. 435 _codbc:_sbcy0,x0,bc:poke32512+bc,f:_farbset:gosub212:return
  96. 440 rem * aus ablage einfuegen
  97. 441 if c0=0 or c1=0 then return
  98. 443 _scrmem0:_bclry2,x2,y3,x3,bc:_farbset:_cfree:gosub212:return
  99. 450 rem * aktuelles zeichen blinkt
  100. 451 _blinkbc:return
  101. 460 rem * hilfseite aufschlagen *
  102. 461 gosub6030:return
  103. 470 rem * ^
  104. 471 ifpeek(32512+br)=255thenreturn
  105. 472 _cleary0,x0:_sbcy0,x0,br:_farbset
  106. 473 _sprset1,10,41:goto 231
  107. 480 rem * loesche zeichen im bild + ->
  108. 481 _cleary0,x0:gosub212:gosub231:_cfree:return
  109. 490 rem * rahmenfarbe erhoehen
  110. 491 b=peek(53280):b=b+1:ifb=256thenb=0
  111. 492 poke53280,b:return
  112. 997 rem ******************************
  113. 998 rem **** tastaturabfrage unten ***
  114. 999 rem ******************************
  115. 1000 _sprset1,y1,x1:_invbr:_tastu:a=peek(2):ifa<>4 then:_gosub1111+10*a:goto1000
  116. 1001 _sprset1,10,41:_tmask2,1:bc=br:_smask1,bc:return
  117. 1110 rem * cursor runter
  118. 1111 y1=y1+1:ye=ye+1:ifye=8theny1=y1-1:ye=7
  119. 1112 return
  120. 1120 rem * cursor rechts
  121. 1121 x1=x1+2:xe=xe+1:ifxe=4thenx1=x1-2:xe=3
  122. 1122 return
  123. 1130 rem * cursor hoch
  124. 1131 y1=y1-1:ye=ye-1:ifye=-1theny1=y1+1:ye=0
  125. 1132 return
  126. 1140 rem * cursor links
  127. 1141 x1=x1-2:xe=xe-1:ifxe=-1thenx1=x1+2:xe=0
  128. 1142 return
  129. 1160 rem * return
  130. 1161 poke36928+xe+ye*4,ff:_smask2,br:_tmask2,0:_codbr
  131. 1162 _farbset:return
  132. 1170 rem * _ undo
  133. 1171 _tmask1,2:_smask2,br:_farbset:_tmask2,0:_codbr:return
  134. 1180 rem * hintergrund gewaehlt
  135. 1181 _atff*2+18,22:print" ";:ff=0:_at18,22:print"[155]_";:return
  136. 1190 rem * multi 1 gewaehlt
  137. 1191 _atff*2+18,22:print" ";:ff=1:_at20,22:print"[155]_";:return
  138. 1200 rem * multi 2 gewaehlt
  139. 1201 _atff*2+18,22:print" ";:ff=2:_at22,22:print"[155]_";:return
  140. 1210 rem * inv gewaehlt
  141. 1211 _atff*2+18,22:print" ";:ff=3:_at24,22:print"[155]_";:return
  142. 1220 rem * f2
  143. 1221 gosub311:return
  144. 1230 rem * f4
  145. 1231 gosub321:return
  146. 1240 rem * f6
  147. 1241 gosub331:return
  148. 1250 rem * f8
  149. 1251 f4=peek(163)-26:poke32512+br,f4:_farbset:_invbr:_smask1,bc:_smask2,br
  150. 1252 _cfree:return
  151. 1260 rem * clr - fuelle mit ff
  152. 1261 forx=36928to36959:pokex,ff:nextx:_smask2,br:_tmask2,0:_codbr:return
  153. 1270 rem * vertikal spiegeln
  154. 1271 _tmask2,0:_vmir:_tmask2,0:_codbr:_smask2,br:return
  155. 1280 rem * horizontal spiegeln
  156. 1281 _tmask2,0:_hmir:_tmask2,0:_codbr:_smask2,br:return
  157. 1290 rem * tausche zwei farben
  158. 1291 _tmask2,0:fe=0
  159. 1292 gosub 1294:s1=fe:gosub1294:s2=fe:_fswaps1,s2:_tmask2,0:_codbr:_smask2,br
  160. 1293 _sprset1,y1,x1:return
  161. 1294 _sprset1,18+2*fe,20:_stop:a=peek(2)
  162. 1295 ifa=145thenfe=fe-1:iffe=-1thenfe=0
  163. 1296 ifa=17thenfe=fe+1:iffe=4thenfe=3
  164. 1297 ifa=13thenreturn
  165. 1298 goto1294
  166. 1300 rem * waagerechter strich *
  167. 1301 for a=0to3:poke36928+4*ye+a,ff:nexta:_smask2,br:_tmask2,0:_codbr:_farbset
  168. 1302 return
  169. 1310 rem * senkrechter strich *
  170. 1311 for a=0to7:poke36928+xe+a*4,ff:nexta:_smask2,br:_tmask2,0:_codbr:_farbset
  171. 1312 return
  172. 1320 rem * vertikal rotieren  *
  173. 1321 _tmask2,0:_vrot:_tmask2,0:_codbr:_smask2,br:_farbset:return
  174. 1330 rem * horizontal rotieren  *
  175. 1331 _tmask2,0:_hrot:_tmask2,0:_codbr:_smask2,br:_farbset:return
  176. 1340 rem * hilfsseite aufschlagen
  177. 1341 gosub6000:return
  178. 1350 rem * charblink *
  179. 1351 _blinkbr:return
  180. 1360 rem * in charset nach rechts +10 *
  181. 1361 _tmask2,0:_codbr
  182. 1362 br=br+10:ifbr>=256thenbr=255:_blinkbr
  183. 1363 _decodbr:_tmask0,2:_smask2,br:_farbset:_blinkbr:_tmask0,1:_smask1,br:return
  184. 1370 rem * in charset nach links -10 *
  185. 1371 _tmask2,0:_codbr
  186. 1372 br=br-10:ifbr<=69thenbr=70:_blinkbr
  187. 1373 _decodbr:_tmask0,2:_smask2,br:_farbset:_blinkbr:_tmask0,1:_smask1,br:return
  188. 1380 rem * zeichen manuell free
  189. 1381 _fmarkbr:_invbr:_cfree:return
  190. 1390 rem * antifree mode an oder aus
  191. 1391 _afmod:return
  192. 1400 rem * in charset nach rechts +1 *
  193. 1401 _tmask2,0:_codbr
  194. 1402 br=br+1:ifbr=256thenbr=255:_blinkbr
  195. 1403 _decodbr:_tmask0,2:_smask2,br:_farbset:_blinkbr:_tmask0,1:_smask1,br:return
  196. 1410 rem * in charset nach links -1 *
  197. 1411 _tmask2,0:_codbr
  198. 1412 br=br-1:ifbr=69thenbr=70:_blinkbr
  199. 1413 _decodbr:_tmask0,2:_smask2,br:_farbset:_blinkbr:_tmask0,1:_smask1,br:return
  200. 1420 rem * erhoehen die rahmenfarbe *
  201. 1421 a=peek(53280):a=a+1:ifa=256thena=0
  202. 1422 poke53280,a:return
  203. 1997 rem *****************************
  204. 1998 rem **** hauptmenue          ****
  205. 1999 rem *****************************
  206. 2000 _scrmem0
  207. 2001 _cfree:bc=32:_decodbc:_tmask0,1:_tmask0,2:_smask1,bc:_smask2,bc
  208. 2002 _at18,25:print"[159]n  l s $  e x":_at18,25
  209. 2010 _sprset5,18,mp(m):_stop:a=peek(2):gosub2100:ifa<>13then2010
  210. 2011 poke199,0:ifm=0 thenprint"[159]  new room?  ":gosub2600:ifsi=74then:_npro:_fout
  211. 2012 ifm=1 thenprint"[159]  load room  ":m1=1:gosub2200:ifsi=74then:_load:gosub5000
  212. 2013 ifm=2 thenprint"[159]  save room  ":m1=-1:gosub2200:ifsi=74then:_save:gosub5000
  213. 2014 ifm=3 thenprint"[159]  directory  ":poke56047,15:gosub2051:_fout:goto2000
  214. 2015 ifm=4 then:_hbcy0,x0:bc=peek(2):br=bc:_decodbr:_tmask0,1:_tmask0,2
  215. 2016 ifm=4then:_smask1,bc:_smask2,br:_at18,24:print"     [158]m[159]enue    [155]"
  216. 2017 ifm=4 then:_sprset5,2,41:return
  217. 2018 ifm=5 thenprint"[159]    exit?    ":gosub2600:ifsi<>74then2001
  218. 2020 ifm=5 thenpoke36357,peek(53280):_ovic:end
  219. 2021 goto2001
  220. 2050 rem * dirbefehlslaenge
  221. 2051 _at24,24:print"a[155]ll or s[155]pecial?";:_sprset5,24,39:_stop
  222. 2052 a=peek(2):if a=65then dl=1 :goto 2056
  223. 2053 if a=83then dl=18:goto 2056
  224. 2054 if a=13then goto2056
  225. 2055 goto2051
  226. 2056 _dirdl:gosub2602:return
  227. 2100 ifa=157then m=m-1:ifm=-1then m=0
  228. 2101 ifa=29 then m=m+1:ifm=6 then m=5
  229. 2103 mp=mt(m):return
  230. 2200 rem * filenane eingeben  $9070
  231. 2201 y5=20:ta=0:
  232. 2202 x5=25+ta:_sprset5,y5,x5:_stop:a=peek(2)
  233. 2203 if a=157thenta=ta-1:ifta=-1thenta=0
  234. 2204 if a=29thenta=ta+1:ifta=13thenta=12
  235. 2206 if a=13then:_sprset5,0,41:goto2212
  236. 2208 if a<32ora>95then2202
  237. 2210 _aty5,x5:print"[155]";:printchr$(a):poke36976+ta,a:a=29:goto2204
  238. 2212 _at22,24:print"[155].lo .sr .ok .v[155]":poke56214,15:poke35734,v
  239. 2299 rem * praefix waehlen
  240. 2300 if m1=1 and p<2thenp=2
  241. 2301 _sprset5,22,24+4*p:_stop:a=peek(2)
  242. 2302 if a=157thenp=p-1:ifp=m1thenp=m1+1
  243. 2304 if a=29thenp=p+1:ifp=4thenp=3
  244. 2306 if a=13then 2400
  245. 2308 goto 2300
  246. 2400 rem * evtl  versions nummer holen
  247. 2401 _at22,24:print"[151].lo .sr .ok .v[155]":poke56214,11
  248. 2402 forx=0to3:poke56199+4*p+x,15:nextx
  249. 2404 if p<>3then2420
  250. 2406 _sprset5,22,38:_stop:a=peek(2):ifa=13then2420
  251. 2408 if a<48 or a>57 then2406
  252. 2412 v=a:poke35734,a:poke36848,a:goto2406
  253. 2420 rem * praefix anfhaengen
  254. 2421 if p=0then poke36976+13,46:poke36976+14,76:poke36976+15,79:si=0:goto7000
  255. 2422 if p=1then goto 5030: rem screach
  256. 2423 if p=2then poke36976+13,46:poke36976+14,79:poke36976+15,75
  257. 2424 if p=3then poke36976+13,46:poke36976+14,86:poke36976+15,v
  258. 2502 if p=3then poke35734,v:poke56214,15
  259. 2600 rem *** sicherheitsabfrage
  260. 2601 _at24,24:print" are you sure?[159] ";:_sprset5,24,38:_stop:si=peek(2)
  261. 2602 if si=89thensi=74
  262. 2603 _sprset5,24,41:_at24,24:print"[159] (p) by sysart [155]";:return
  263. 5000 rem *** fehlerkanal einlesen ***
  264. 5001 f1=peek(36352):_floppy:o=peek(2):ifo=0then:_farbset:return
  265. 5010 if o=67then:_at24,24:print"write protect !";:goto5025
  266. 5012 if o=62then:_at24,24:print"file not found!";:goto5025
  267. 5014 if o=63then:_at24,24:print"  file exist!  ";:goto5025
  268. 5016 if o=72then:_at24,24:print"  disc full!   ";:goto5025
  269. 5018 if o=74then:_at24,24:print"drive not ready";:goto5025
  270. 5019 _farbset:return
  271. 5025 _sprset5,24,39:_stop:_sprset5,1,41:_at24,24:print"[159] (p) by sysart [155]";
  272. 5027 _farbset:return
  273. 5030 rem *** scratch a file ***
  274. 5033 _at18,25:print"[159]scratch file!":_at24,24:print"a[155]ll or s[155]pecial?";
  275. 5034 _sprset5,24,39:_stop:a=peek(2)
  276. 5035 if a=65 then 5050: rem alle
  277. 5037 if a=83 then 5041: rem einzel
  278. 5038 _at24,24:print"[159] (p) by sysart ";:si=0:return
  279. 5041 _at18,25:print"[159]scratch file ";:_at24,24:print"[155]version-number?";
  280. 5042 _sprset5,22,38:_stop:a=peek(2):ifa=13then5048:rem versionsnummer holen
  281. 5044 if a<48 or a>57 then 5042
  282. 5046 v=a:poke35734,a:goto5042
  283. 5048 poke36976-2,83:poke36975,58:poke36976+13,46:poke36976+14,86:poke36976+15,v
  284. 5049 goto5061:rem->einzel scratch
  285. 5050 rem **** loesche alle files
  286. 5052 _at18,25:print"[159]load .ok file";
  287. 5053 poke36976+13,46:poke36976+14,79:poke36976+15,75:_load:_floppy:o=peek(2)
  288. 5054 ifo=0then5057:->.ok file gefunden
  289. 5055 _at24,24:print"miss .ok file !";:_sprset5,24,39:_stop
  290. 5056 _at24,24:print"[159] (p) by sysart [155]";:si=0:return
  291. 5057 _farbset:_at24,24:print"so good? (j/n) [155]";:_sprset5,24,38:_stop:a=peek(2)
  292. 5058 ifa<>74then5056
  293. 5059 poke36976-2,83:poke36975,58:poke36976+13,46:poke36976+14,86:poke36976+15,42
  294. 5060 _at18,25:print"[159] scratch all [155]"
  295. 5061 gosub2600:ifsi<>74then si=0:return
  296. 5062 si=0:_scratch:return
  297. 6000 rem *** hilfsseiten ***
  298. 6001 _scrmem0:poke53269,0:poke36352,0
  299. 6005 _at0,0:print"[159] tastaturbelegung im chareditor         "
  300. 6006 _at1,0:print"--------------------------------        "
  301. 6007 _at2,0:print"[158]f1 f3 f5 f7 [159]zeichenfarbe auswaehlen.    "
  302. 6008 _at3,0:print"[158]f2 [159]back.  [158]f4 [159]multi1  [158]f6 [159]multi2  [158]f8 [159]rand "
  303. 6009 _at4,0:print"[158]1-8 [159]individualfarbe, wie es drauf steht."
  304. 6010 _at5,0:print"[158]return [159]setze punkt  [158]* [159]das zei. blinkt   "
  305. 6011 _at6,0:print"                                        "
  306. 6012 _at7,0:print"[158] _  [159]undo   [158]space [159]zurueck zum raumeditor "
  307. 6013 _at8,0:print"[158]clr [159]fuellt das ges. zei. mit akt. farbe "
  308. 6014 _at9,0:print"[158] ^  [159]fuellt cursorspalte mit akt. farbe  "
  309. 6015 _at10,0:print"[158] =  [159]fuellt cursorzeile mit akt. farbe   "
  310. 6016 _at11,0:print"[158] +  [159]spiegeln an der y-achse  [158]\ [159]tausche  "
  311. 6017 _at12,0:print"[158] -  [159]spiegeln an der x-achse    [159]2 farben "
  312. 6018 _at13,0:print"[158] o  [159]rotiert das zeichen nach oben       "
  313. 6019 _at14,0:print"[158] l  [159]rotiert das zeichen nach links      "
  314. 6020 _stop:gosub7500:_stop:poke53269,255:poke36352,f1:_memscr0:_farbset:return
  315. 6029 rem **** hilfsseiten fuer oben ***
  316. 6030 _scrmem0:_at0,0:print"[159] tastaturbelegung im raumeditor         "
  317. 6031 poke53269,0:_at1,0:print"--------------------------------        "
  318. 6032 _at2,0:print"[158]f2 [159]back.  [158]f4 [159]multi1  [158]f6 [159]multi2  [158]f8 [159]rand "
  319. 6033 _at3,0:print"[158]1-8 [159]individualfarbe, wie es drauf steht."
  320. 6034 _at4,0:print"[158]return [159]set zei  [158]= [159]ret.& rechts  [158]^ [159]ret.&^"
  321. 6035 _at5,0:print"[158]shift return [159]set zei. mit neuem bildcode"
  322. 6036 _at6,0:print"[158]home [159]loesche das zei. an akt. cursorpos."
  323. 6037 _at7,0:print"[158]clr [159]wie -home- & rechts  [158]inst [159]-home- & ^"
  324. 6038 _at8,0:print"[158] a  [159]blockecke oben links   [158]c [159]copy block "
  325. 6039 _at9,0:print"[158] b  [159]blockecke unten rechts [158]f [159]fill block "
  326. 6040 _at10,0:print"[158] _  [159]undo   [158]space [159]edidiere das zeichen   "
  327. 6041 _at11,0:print"[158] m  [159]go to menue   [158]* [159]gleiche zei. blinken"
  328. 6042 _at12,0:print"[158] 9 [159]bzw [158]0 [159]lege bild in memory 1 bzw 2    "
  329. 6043 _at13,0:print"[158]control 9/0 [159]hole bild aus memory 1 bzw 2"
  330. 6044 _at14,0:print"                                        "
  331. 6046 _stop:poke53269,255:poke36352,f1:_memscr0:_farbset:return
  332. 7000 rem *** creat loader ***
  333. 7001 _at18,25:print"[159]create loader":ll=36608
  334. 7010 _at24,24:print"[155]charbasis [158]$0000";:_sprset5,24,35:_zahl
  335. 7012 zh=peek(163):pokell+58,zh+8:pokell+42,zh+2
  336. 7020 _at24,24:print"[155]screenbas [158]$0000";:_sprset5,24,35:_zahl
  337. 7022 zh=peek(163):pokell+68,zh:pokell+88,zh+2
  338. 7030 _at24,24:print"[155]colortab. [158]$0000";:_sprset5,24,35:_zahl
  339. 7032 zh=peek(163):pokell+5,zh:pokell+33,zh:pokell+102,zh:pokell+108,zh
  340. 7033 pokell+114,zh
  341. 7040 gosub2600:ifsi=74then:_lsave
  342. 7050 si=0:return
  343. 7499 rem * zweite hilfsseite fuer unten
  344. 7500 _at0,0:print"[158]ein paar worte zur internen zeichensatz-"
  345. 7501 _at1,0:print"verwaltung. [159]diese kann in zwei modi ar- "
  346. 7502 _at2,0:print"beiten. steht in der mitte [158]on[159], so werden"
  347. 7503 _at3,0:print"alle zeichen die offensichtlich nicht   "
  348. 7504 _at4,0:print"mehr gebraucht werden, automatisch ge-  "
  349. 7505 _at5,0:print"loescht und zum neubeschreiben freigege-"
  350. 7506 _at6,0:print"ben. wenn in der mitte [158]--[159] steht ist die-"
  351. 7507 _at7,0:print"se funktion ausgeschaltet. die zeichen  "
  352. 7508 _at8,0:print"sind zwar nicht mehr im bild zu sehen,  "
  353. 7509 _at9,0:print"aber im zeichensatz noch voll vorhanden."
  354. 7510 _at10,0:print"mit [158]c= & m [159]schaltet man die modi um.    "
  355. 7511 _at11,0:print"mit [158],[159]/[158].[159] blaettert man im zeichensatz.   "
  356. 7512 _at12,0:print"mit [158]<[159]/[158]>[159] gehts auch in zehnerschritten.  "
  357. 7513 _at13,0:print"mit [158]f[159] setzt man zei. manuell frei, wenn "
  358. 7514 _at14,0:print"sie nicht mehr im bild gebraucht werden.":return
  359.